1 PRINT F$:HOME:GR:COLOR=1:PLOT1,1:COLOR=15:VLIN 0,39 AT 0:VLIN 0,39 AT 39:HLIN 0,39 AT 0:HLIN 0,39 AT 39:FOR I=11 TO 35 STEP 4:HLIN 0,10 AT I-7:VLIN 0,39 AT I:COLOR=0:A=RND(1)*36+2:PLOT A/4+1,I-7:PLOT I,A:PLOT I,A-1:COLOR=15:NEXT I:X=36:Y=2:XN=X:YN=Y:T=0:F$=CHR$(7)
2 VTAB 21:PRINT"TEMPS: "T:T=T+1:VY(1)=-1:VY(5)=1:VX(2)=-1:VX(3)=1:S=PEEK(-16384):G=VAL(RIGHT$(STR$(S),1)):Y=Y+VY(G):X=X+VX(G):R=SCRN(X,Y):ON R=15 GOTO 1:E=PEEK(-16336):COLOR=7:PLOT X,Y:COLOR=0:PLOT XN,YN:XN=X:YN=Y:ON R<>1 GOTO 2:PRINT"BRAVO !!!"